viết chương trình nhập điểm trung bình (ĐTB) trong học kỳ 1 của các bạn học sinh. đưa ra kết quả xếp loại của học sinh dwuaj trên các tiêu chí dưới đây:
+Nếu ĐTB<5.0 thì xếp loại yếu
+Nếu 5.0 ≤ ĐTB < 6.5 thì xếp loại trung bình
+Nếu 6.5 ≤ ĐTB < 8.0 thì xếp loại khá
+Nếu ĐTB ≥ 8.0 thì xếp loại giỏi.
In kết quá xếp loại ra màn hình.
uses crt;
var diem:real;
begin
clrscr;
repeat
write('Nhap diem trung binh:'); readln(diem);
until (0<=diem) and (diem<=10);
if diem<5 then writeln('Xep loai yeu')
else if (5<=diem) and (diem<6.5) then writeln('Xep loai trung binh')
else if (6.5<=diem) and (diem<8.0) then writeln('Xep loai kha')
else writeln('Xep loai gioi');
readln;
end.